program main

use io_mod, only: Deck_Reader

use mesh_mod,      only: meshObj, Mesh
use mesh_dump_mod, only: Mesh_Write
use paint_on_mod,  only: Paint_Setup, Paint_Create, Paint_On, PaintList

use domain_mod, only: VarsObj, Vars_Create

type(meshObj) :: main_mesh
type(varsObj) :: vars

call Paint_Setup(1)

call Deck_Reader("control.arrow")

PaintList(1) = Paint_Create()

main_mesh = Mesh()
call Vars_Create(main_mesh%nCells, main_mesh%nNodes)

call Paint_On(main_mesh)

call Mesh_Write(main_mesh)

end program main
